home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1995 July / macformat-026.iso / mac / Interactive Arts / Interactive Arts '95 / sarah / 00051.ls < prev    next >
Encoding:
Text File  |  1995-05-02  |  268 b   |  13 lines
  1. on NewBinary
  2.   repeat with x = 1 to 22
  3.     set NewBit to random(10)
  4.     if NewBit <= 5 then
  5.       put "0" after BinaryNumber
  6.       next repeat
  7.     end if
  8.     put "1" after BinaryNumber
  9.   end repeat
  10.   put BinaryNumber into field 13
  11.   put BinaryNumber into field 14
  12. end
  13.